home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / AMD.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-09-26  |  1.4 KB  |  78 lines
  1. $INCLUDE "REGNAMES.INC"
  2. COLOR 14
  3.  
  4. IF CheckVector(&H49)=0 THEN
  5.  SOUND 2000,2
  6.  PRINT "FEHLER: ATUtilities File Transfer ist nicht installiert!"
  7.  GOTO ende
  8. END IF
  9. GOSUB CmdAuswertung
  10.  
  11. REG %AX,(&H6*256)
  12. CALL INTERRUPT &H49
  13. segment=REG(%ES)
  14. offset=REG(%DI)
  15.  
  16. DEF SEG = segment
  17.  
  18. a$=a$+CHR$(0)
  19. FOR i=1 TO LEN(a$)
  20.  POKE offset+i-1,ASC(MID$(a$,i,1))
  21. NEXT
  22.  
  23. REG %AX,(17*256)
  24. CALL INTERRUPT &H49
  25. IF REG(%BX)=10000 THEN
  26.  PRINT "Verzeichnis ";a$;"wurde erstellt."
  27. ELSE
  28.  PRINT "Verzeichnis ";a$;"konnte nicht erstellt werden."
  29.  REG %AX,(10*256)
  30.  CALL INTERRUPT &H49
  31.  e=REG(%BX)
  32.  SELECT CASE e
  33.   CASE 203
  34.    x$="- Verzeichnis mit gleichem Namen existiert bereits."
  35.   CASE 214
  36.    x$="- Diskette ist schreibgeschtzt."
  37.   CASE ELSE
  38.    x$=""
  39.  END SELECT
  40.  PRINT "AmigaDOS-Fehlercode:";REG(%BX);x$
  41. END IF
  42.  
  43. ende:
  44. COLOR 7
  45. END
  46.  
  47. CmdAuswertung:
  48. cmd$=COMMAND$
  49. a$=cmd$
  50. IF a$="/?" OR a$="?" OR a$="" THEN
  51.  GOTO argf
  52. END IF
  53. RETURN
  54.  
  55. argf:
  56. SOUND 2000,2
  57. PRINT "AMd - Version 1.0  Copyright (C) 1993 by Thomas Dreibholz"
  58. PRINT ""
  59. PRINT "AMd erstellt ein neues Amiga-Verzeichnis (MakeDir-Befehl)."
  60. PRINT ""
  61. PRINT "Aufruf: AMd [Amiga-Verzeichnis | ? | /?]"
  62. PRINT ""
  63. GOTO ende
  64.  
  65.  
  66. FUNCTION CheckVector(num) STATIC
  67.  REG %AX,(&H35*256)+num
  68.  CALL INTERRUPT &H21
  69.  segm=REG(%ES)
  70.  offs=REG(%BX)
  71.  DEF SEG = segm
  72.  IF (segm=0) OR (PEEK(offs)=207) THEN
  73.   CheckVector=0
  74.  ELSE
  75.   CheckVector=1
  76.  END IF
  77. END FUNCTION
  78.